inherited crdDebt: TcrdDebt
  Left = 275
  Top = 187
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1076#1086#1083#1075#1072
  ClientHeight = 670
  ClientWidth = 1026
  OldCreateOrder = True
  ExplicitWidth = 1042
  ExplicitHeight = 708
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 630
    Width = 1026
    ExplicitTop = 630
    ExplicitWidth = 1026
  end
  object PageControl1: TPageControl [1]
    Left = 0
    Top = 0
    Width = 1026
    Height = 630
    ActivePage = tsDebt
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 1
    object tsDebt: TTabSheet
      Caption = #1044#1086#1083#1075
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 1018
        Height = 162
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object gbPhones: TGroupBox
          Left = 474
          Top = 0
          Width = 185
          Height = 162
          Align = alLeft
          Caption = ' '#1058#1077#1083#1077#1092#1086#1085#1099' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label13: TLabel
            Left = 6
            Top = 20
            Width = 55
            Height = 13
            Caption = #1044#1086#1084#1072#1096#1085#1080#1081
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 17
            Top = 44
            Width = 44
            Height = 13
            Caption = #1057#1086#1090#1086#1074#1099#1081
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label16: TLabel
            Left = 11
            Top = 68
            Width = 50
            Height = 13
            Caption = #1057#1086#1090#1086#1074#1099#1081'2'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label17: TLabel
            Left = 19
            Top = 92
            Width = 42
            Height = 13
            Caption = #1056#1072#1073#1086#1095#1080#1081
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBEditEh10: TDBEditEh
            Left = 69
            Top = 17
            Width = 87
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PHONE_HOME'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
          object DBEditEh11: TDBEditEh
            Left = 69
            Top = 41
            Width = 87
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PHONE_CELL'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh12: TDBEditEh
            Left = 69
            Top = 65
            Width = 87
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PHONE_CELL2'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object DBEditEh13: TDBEditEh
            Left = 69
            Top = 89
            Width = 87
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PHONE_WORK'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 3
            Visible = True
          end
        end
        object gbTraits: TGroupBox
          Left = 659
          Top = 0
          Width = 359
          Height = 162
          Align = alClient
          Caption = ' '#1055#1088#1080#1079#1085#1072#1082#1080' '#1076#1086#1083#1075#1072' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object dbgDetails: TDBGridEh
            Left = 2
            Top = 39
            Width = 355
            Height = 121
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dscDebtTraits
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            PopupMenu = pmDetails
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = [fsBold]
            Columns = <
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                Width = 379
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
          object ToolBar1: TToolBar
            Left = 2
            Top = 15
            Width = 355
            Height = 24
            ButtonHeight = 23
            Caption = 'ToolBar1'
            GradientEndColor = 11319229
            Images = MainForm.ImageList2
            TabOrder = 1
            object ToolButton1: TToolButton
              Left = 0
              Top = 0
              Action = aDetails
            end
          end
        end
        object pcDebtor: TGroupBox
          Left = 0
          Top = 0
          Width = 474
          Height = 162
          Align = alLeft
          Caption = ' '#1044#1086#1083#1078#1085#1080#1082' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          object Label1: TLabel
            Left = 57
            Top = 20
            Width = 27
            Height = 13
            Alignment = taRightJustify
            Caption = #1060#1048#1054
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 5
            Top = 42
            Width = 79
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 52
            Top = 86
            Width = 32
            Height = 13
            Alignment = taRightJustify
            Caption = #1059#1083#1080#1094#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label6: TLabel
            Left = 318
            Top = 86
            Width = 23
            Height = 13
            Caption = #1044#1086#1084
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label7: TLabel
            Left = 402
            Top = 86
            Width = 13
            Height = 13
            Caption = #1050#1074
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 12
            Top = 108
            Width = 72
            Height = 13
            Alignment = taRightJustify
            Caption = #1052#1077#1089#1090#1086' '#1088#1072#1073#1086#1090#1099
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label18: TLabel
            Left = 27
            Top = 130
            Width = 57
            Height = 13
            Alignment = taRightJustify
            Caption = #1055#1088#1086#1078#1080#1074#1072#1077#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label15: TLabel
            Left = 54
            Top = 64
            Width = 30
            Height = 13
            Alignment = taRightJustify
            Caption = #1043#1086#1088#1086#1076
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBEditEh1: TDBEditEh
            Left = 93
            Top = 17
            Width = 327
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
          object DBDateTimeEditEh1: TDBDateTimeEditEh
            Left = 93
            Top = 39
            Width = 80
            Height = 19
            AlwaysShowBorder = True
            DataField = 'BIRTH_DATE'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 418
            Top = 83
            Width = 45
            Height = 19
            AlwaysShowBorder = True
            DataField = 'APPARTS'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object bbDebtor: TBitBtn
            Left = 425
            Top = 17
            Width = 38
            Height = 39
            Hint = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1082#1072#1088#1090#1086#1095#1082#1091' '#1076#1086#1083#1078#1085#1080#1082#1072
            DoubleBuffered = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Glyph.Data = {
              36100000424D3610000000000000360000002800000020000000200000000100
              2000000000000010000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FBF9F700F7F4
              EF00F1EAE200F0E9E000F4EFE800FBF9F600FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FBF9F700E8DCCD00CFB69600BF9C7100B9926100B48C
              5A00AD814B00AB7F4A00B1865200B8926100C6A88300E0D0BC00FBF9F700FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FDFC
              FB00E1D2BE00BD9A6D009B672700935C1B0090581A008D561A008D551A008C55
              1A008C5419008B541900814E1900774819008B5319008F581A009C692C00C5A5
              7E00F1EAE200FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F9F6F300CFB5
              9300A06E330090581A008E571A008E571A008F581A0090581A0090591A009058
              1A008F571A008E571A00845119007A4B19008E561C0089511800885018008D56
              1A00D1B89A00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C4A57E008155
              22009861220090581A00915A1B00925B1B00935C1C00945D1C00945D1C00945D
              1C00935B1C00925B1B008A551B0082511A00935D20008B541900895119008D56
              1A00D6C0A500FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F2EBE200976426008352
              1D0098612100925B1B00945D1C00965E1C0097601D0097601D0098611D009760
              1D00965F1C00955E1C008D591C0086541B00986224008E561A008B5319009059
              1B00DFCEB900FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D2BA9B00925A1B008B57
              1C0098611F00965F1D0098611D009A631E009B641E009C651F009C651F009C65
              1F009B641E009A621E00925D1D0089571C009D68280090591B008E561A00945D
              1C00EDE4D800FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00CFB59400935C1B00915B
              1C0099621E0099621D009B641E009D661F009F681F00A0691F00A0691F00A069
              1F009E671F009D661F0096611E0089581D00A26D2B00935C1B0090581A009861
              1E00FAF7F400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BDA000965E1C00965F
              1D009A631E009D661E00A0691F00A26B2000A36D2100A46D2100A56E2100A46D
              2100A36C2100A16A20009C661F008A5A1D00A26E2E0099622000935B1C00A97A
              4100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00DECBB40098601D009861
              1D009C651E009F681F00A26C2000A46E2100A6702200A8712200A8712200A771
              2200A66F2100A46D2100A16A200097641F008F5F21009E692700965E1D00BC98
              6900FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F0E8DD009B641E009A63
              1E009F681F00A26B2000A56F2100A8712200AB742300AB752300AC752400AB75
              2300AA732300A7702200A46D2100A16A200099631F0095601F009B662200D7C1
              A400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FDFBFA00A16D2A009C65
              1E00A0692000A46D2100A7712200AA732300AD762400AE782400AF782400AE77
              2400AC752300AA732300A66F2100A36C21009E671F0099631E00A5733500E7DA
              C900FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C09D6F009E67
              1F00A16B2000A56E2100A9722300AC752300B27C2800B6802A00B27C2500B07A
              2500AE772400AB752300A7712200A46D2100A0691F00A0692200BF996900F9F6
              F200FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00DFCDB700A36F
              2B00A26B2000A66F2100A9732300B0792700C18B3800C38D3A00C68F3900B57F
              2800AF782400AC752400A8712200A56E2100A7712600AE772E00E2D2BE00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F9F7F300C19F
              7300A46D2200A9722400B0792900AB78300099887000A3968200A37D4800BF8B
              3E00B17A2800AB752300A9722300AC752800B5823F00D1B79400FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F0E9
              DF00AC7B3C00A66F2600A66F2600A07B49008599AA00A0B1C10095A2A8009D8E
              7500A8722600AB742300AD772900AC783300DDCBB400FAF8F600FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00F7F3EE00EAE3DA009E9585008C9BA6008498A9008396A70092A6B60092A7
              B80099856400A6712700B9986A00EEE7DD00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00E8EAEA0097AABB0098ACBD0094A8B9008CA0B1008498A9008DA2
              B3008E939200A2907500F1EDE900FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FDFDFC00BCC5CB009EB0C100A1B3C30098ACBD0094A8B9008FA3B4008498
              A90092A4B400DFE3E600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00F2F3F300A9BAC700ADBCCB00A6B7C6009CAFBF0095AABA0092A7B8008EA2
              B300B4BEC600FAFAFA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00E4E7E900A5B6C500B7C4D300ACBCCB00A0B3C30098ACBD0093A8B90097AB
              BC00B0BAC100F9F9FA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00D6DDE300AAB9C800BAC8D500B0BFCE00A4B5C5009CAFBF0093A8B90093A8
              B900616C7700C1C4C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00BFCCD600AFBECD00BBC9D600B3C1D000A6B8C7009EB0C1006F7D8A007C8D
              9C004E5965003E444C00E6E7E800FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00AFBECA00AEBDCC00B8C4D200B0BECD00A3B4C30099ABBB005E6A76003C44
              4C002F353E002F353E009B9FA400FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FDFDFE00FDFD
              FE00A5B6C400A4B3C200A7B5C30096A3B0008794A20081909F00525D6700282E
              34002F353E002F353E006C717700F8F8F800FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00E6E7E900969A
              9F0084909D007B8794006A727D00545B65003F464F00383E47002C3139002529
              30002F353E002F353E006D717800F8F9F900FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00E7E9EA006166
              6D0030363F00292E3700262B3300252A310024293000272C34002E343D002F35
              3E002F353E0031384100989BA000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FDFDFD00C4C6
              C900404751003A414C002E343D002E343D002D333C002E343D002F353E002F35
              3E0031374100353C4600DBDDDE00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00CED0D20063697100434C59003C444F00373E4900363D4800373E48003A42
              4C00454D5800989BA000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FEFEFE00E2E4E5008E9297004A515A003F47540040495500404854004047
              530095989D00EFEFF000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FBFBFC00D3D5D700C7C9CC00CDCED100EEEF
              EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            ParentDoubleBuffered = False
            ParentFont = False
            TabOrder = 3
            OnClick = bbDebtorClick
          end
          object DBEditEh9: TDBEditEh
            Left = 93
            Top = 105
            Width = 370
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WORKPLACE'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 4
            Visible = True
          end
          object DBEditEh14: TDBEditEh
            Left = 93
            Top = 127
            Width = 370
            Height = 19
            AlwaysShowBorder = True
            DataField = 'REAL_ADDRESS'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 5
            Visible = True
          end
          object DBEditEh7: TDBEditEh
            Left = 348
            Top = 83
            Width = 51
            Height = 19
            AlwaysShowBorder = True
            DataField = 'HOUSE'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 6
            Visible = True
          end
          object dbcbStreets: TDBLookupComboboxEh
            Left = 93
            Top = 83
            Width = 223
            Height = 19
            AlwaysShowBorder = True
            AutoSelect = False
            EditButton.Style = ebsEllipsisEh
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'NAME'
            ListField = 'NAME'
            ListSource = dscStreets
            ParentFont = False
            ShowHint = True
            Style = csDropDownEh
            TabOrder = 7
            Visible = True
          end
          object DBLookupComboboxEh2: TDBLookupComboboxEh
            Left = 93
            Top = 61
            Width = 370
            Height = 19
            AlwaysShowBorder = True
            AutoSelect = False
            DataField = 'TOWN'
            DataSource = dscDebtor
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'NAME'
            ListField = 'NAME'
            ListSource = MAINDM.dscTowns
            ParentFont = False
            ShowHint = True
            TabOrder = 8
            Visible = True
          end
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 162
        Width = 1018
        Height = 260
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 474
          Height = 260
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
          object GroupBox2: TGroupBox
            Left = 0
            Top = 0
            Width = 474
            Height = 126
            Align = alTop
            Caption = #1044#1086#1075#1086#1074#1086#1088
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object Label3: TLabel
              Left = 55
              Top = 81
              Width = 76
              Height = 13
              Alignment = taRightJustify
              Caption = #1044#1072#1090#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label10: TLabel
              Left = 89
              Top = 15
              Width = 42
              Height = 13
              Alignment = taRightJustify
              Caption = #1070#1088'.'#1083#1080#1094#1086
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label26: TLabel
              Left = 73
              Top = 59
              Width = 58
              Height = 13
              Alignment = taRightJustify
              Caption = #8470#1076#1086#1075#1086#1074#1086#1088#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label27: TLabel
              Left = 62
              Top = 37
              Width = 69
              Height = 13
              Alignment = taRightJustify
              Caption = #1042#1080#1076' '#1076#1086#1075#1086#1074#1086#1088#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label29: TLabel
              Left = 240
              Top = 81
              Width = 51
              Height = 13
              Alignment = taRightJustify
              Caption = #1057#1088#1086#1082','#1084#1077#1089'.'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label31: TLabel
              Left = 47
              Top = 103
              Width = 84
              Height = 13
              Alignment = taRightJustify
              Caption = #1057#1091#1084#1084#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBDateTimeEditEh2: TDBDateTimeEditEh
              Left = 145
              Top = 78
              Width = 89
              Height = 19
              AlwaysShowBorder = True
              DataField = 'DOGOVOR_DATE'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              Kind = dtkDateEh
              ParentFont = False
              ShowHint = True
              TabOrder = 3
              Visible = True
            end
            object dblcContragents: TDBLookupComboboxEh
              Left = 145
              Top = 12
              Width = 319
              Height = 19
              AlwaysShowBorder = True
              DataField = 'CONTRAGENT_ID'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscContragents
              ParentFont = False
              ShowHint = True
              TabOrder = 0
              Visible = True
            end
            object deDogno: TDBEditEh
              Left = 145
              Top = 56
              Width = 123
              Height = 19
              AlwaysShowBorder = True
              DataField = 'DOGOVOR_NO'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ShowHint = True
              TabOrder = 2
              Visible = True
            end
            object lcbDogType: TDBLookupComboboxEh
              Left = 145
              Top = 34
              Width = 319
              Height = 19
              AlwaysShowBorder = True
              DataField = 'DOGOVOR_TYPE'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscDogTypes
              ParentFont = False
              ShowHint = True
              TabOrder = 1
              Visible = True
            end
            object ePeriod: TDBEditEh
              Left = 297
              Top = 78
              Width = 85
              Height = 19
              AlwaysShowBorder = True
              DataField = 'DOGOVOR_LONG'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ShowHint = True
              TabOrder = 4
              Visible = True
            end
            object eDogSum: TDBEditEh
              Left = 144
              Top = 100
              Width = 85
              Height = 19
              AlwaysShowBorder = True
              DataField = 'DOGOVOR_SUM'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ShowHint = True
              TabOrder = 5
              Visible = True
            end
          end
          object GroupBox1: TGroupBox
            Left = 0
            Top = 126
            Width = 474
            Height = 134
            Align = alClient
            Caption = ' '#1047#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1100' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            object Label25: TLabel
              Left = 58
              Top = 103
              Width = 72
              Height = 13
              Alignment = taRightJustify
              Caption = #1044#1086#1083#1075' '#1090#1077#1082#1091#1097#1080#1081
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label8: TLabel
              Left = 16
              Top = 81
              Width = 114
              Height = 13
              Alignment = taRightJustify
              Caption = #1044#1086#1083#1075' '#1087#1077#1088#1074#1086#1085#1072#1095#1072#1083#1100#1085#1099#1081
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label11: TLabel
              Left = 35
              Top = 59
              Width = 95
              Height = 13
              Alignment = taRightJustify
              Caption = #1057#1087#1086#1089#1086#1073' '#1087#1086#1075#1072#1096#1077#1085#1080#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label28: TLabel
              Left = 29
              Top = 37
              Width = 101
              Height = 13
              Alignment = taRightJustify
              Caption = #1042#1080#1076' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1080
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label22: TLabel
              Left = 23
              Top = 15
              Width = 107
              Height = 13
              Alignment = taRightJustify
              Caption = #1057#1088#1086#1082' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1080
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label32: TLabel
              Left = 234
              Top = 103
              Width = 112
              Height = 13
              Alignment = taRightJustify
              Caption = #1074' '#1090#1086#1084' '#1095#1080#1089#1083#1077' '#1087#1088#1086#1094#1077#1085#1090#1099
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object dbeCurSumma: TDBEditEh
              Left = 144
              Top = 100
              Width = 85
              Height = 19
              AlwaysShowBorder = True
              Color = clRed
              DataField = 'SUMMA_CUR'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clYellow
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Flat = True
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 4
              Visible = True
            end
            object dbeSumma: TDBEditEh
              Left = 144
              Top = 78
              Width = 85
              Height = 19
              AlwaysShowBorder = True
              DataField = 'SUMMA'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ShowHint = True
              TabOrder = 3
              Visible = True
            end
            object dbPaidMethod: TDBLookupComboboxEh
              Left = 144
              Top = 56
              Width = 319
              Height = 19
              AlwaysShowBorder = True
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'NAME'
              ListField = 'NAME'
              ListSource = dscPaidMethod
              ParentFont = False
              ShowHint = True
              Style = csDropDownEh
              TabOrder = 2
              Visible = True
            end
            object lcbKind: TDBLookupComboboxEh
              Left = 144
              Top = 34
              Width = 319
              Height = 19
              AlwaysShowBorder = True
              DataField = 'KIND_ID'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscKinds
              ParentFont = False
              ShowHint = True
              TabOrder = 1
              Visible = True
            end
            object lcbPeriod: TDBLookupComboboxEh
              Left = 144
              Top = 12
              Width = 319
              Height = 19
              AlwaysShowBorder = True
              DataField = 'PERIOD_ID'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscTypes
              ParentFont = False
              ShowHint = True
              TabOrder = 0
              Visible = True
            end
            object DBEditEh20: TDBEditEh
              Left = 352
              Top = 100
              Width = 85
              Height = 19
              AlwaysShowBorder = True
              Color = clRed
              DataField = 'PERCENTS'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clYellow
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Flat = True
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 5
              Visible = True
            end
          end
        end
        object Panel4: TPanel
          Left = 474
          Top = 0
          Width = 544
          Height = 260
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object GroupBox4: TGroupBox
            Left = 0
            Top = 0
            Width = 544
            Height = 196
            Align = alClient
            Caption = ' '#1047#1072#1084#1077#1090#1082#1080' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object PageControl2: TPageControl
              Left = 2
              Top = 15
              Width = 540
              Height = 179
              ActivePage = TabSheet4
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              object TabSheet4: TTabSheet
                Caption = #1050' '#1076#1086#1083#1078#1085#1080#1082#1091
                object Panel7: TPanel
                  Left = 0
                  Top = 0
                  Width = 532
                  Height = 151
                  Align = alClient
                  BevelOuter = bvLowered
                  Caption = 'Panel4'
                  TabOrder = 0
                  object DBMemo1: TDBMemo
                    Left = 1
                    Top = 1
                    Width = 530
                    Height = 149
                    Align = alClient
                    BorderStyle = bsNone
                    DataField = 'NOTES'
                    DataSource = dscDebtor
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 0
                  end
                end
              end
              object TabSheet5: TTabSheet
                Caption = #1050' '#1089#1072#1084#1086#1084#1091' '#1076#1086#1083#1075#1091
                ImageIndex = 1
                object Panel10: TPanel
                  Left = 0
                  Top = 0
                  Width = 532
                  Height = 151
                  Align = alClient
                  BevelOuter = bvLowered
                  Caption = 'Panel4'
                  TabOrder = 0
                  object DBMemo2: TDBMemo
                    Left = 1
                    Top = 1
                    Width = 530
                    Height = 149
                    Align = alClient
                    BorderStyle = bsNone
                    DataField = 'NOTES'
                    DataSource = dscDebt
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 0
                  end
                end
              end
            end
          end
          object GroupBox3: TGroupBox
            Left = 0
            Top = 196
            Width = 544
            Height = 64
            Align = alBottom
            Caption = ' '#1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            object Label19: TLabel
              Left = 59
              Top = 15
              Width = 35
              Height = 13
              Alignment = taRightJustify
              Caption = #1043#1088#1091#1087#1087#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label30: TLabel
              Left = 20
              Top = 37
              Width = 74
              Height = 13
              Alignment = taRightJustify
              Caption = #1054#1090#1074'.'#1089#1086#1090#1088#1091#1076#1085#1080#1082
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBLookupComboboxEh3: TDBLookupComboboxEh
              Left = 108
              Top = 12
              Width = 274
              Height = 19
              AlwaysShowBorder = True
              DataField = 'USERORG_ID'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscOrgs
              ParentFont = False
              ShowHint = True
              TabOrder = 0
              Visible = True
            end
            object DBLookupComboboxEh6: TDBLookupComboboxEh
              Left = 108
              Top = 34
              Width = 274
              Height = 19
              AlwaysShowBorder = True
              DataField = 'COLLECTOR_ID'
              DataSource = dscDebt
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListSource = MAINDM.dscCollectors
              ParentFont = False
              ShowHint = True
              TabOrder = 1
              Visible = True
            end
          end
        end
      end
      object Panel8: TPanel
        Left = 0
        Top = 422
        Width = 1018
        Height = 177
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 2
        object GroupBox6: TGroupBox
          Left = 0
          Top = 0
          Width = 474
          Height = 177
          Align = alLeft
          Caption = ' '#1057#1091#1076#1077#1073#1085#1086#1077' '#1074#1079#1099#1089#1082#1072#1085#1080#1077' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label9: TLabel
            Left = 38
            Top = 44
            Width = 92
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1091#1076#1077#1073#1085#1099#1081' '#1091#1095#1072#1089#1090#1086#1082
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label23: TLabel
            Left = 100
            Top = 66
            Width = 30
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1091#1076#1100#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label24: TLabel
            Left = 16
            Top = 110
            Width = 114
            Height = 13
            Alignment = taRightJustify
            Caption = #1043#1086#1089#1087#1086#1096#1083#1080#1085#1099' '#1086#1087#1083#1072#1095#1077#1085#1086
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label33: TLabel
            Left = 40
            Top = 22
            Width = 91
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1087#1086#1076#1072#1095#1080' '#1080#1089#1082#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label34: TLabel
            Left = 14
            Top = 88
            Width = 116
            Height = 13
            Alignment = taRightJustify
            Caption = #1042#1080#1076' '#1089#1091#1076'.'#1087#1088#1086#1080#1079#1074#1086#1076#1089#1090#1074#1072' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label35: TLabel
            Left = 232
            Top = 110
            Width = 63
            Height = 13
            Alignment = taRightJustify
            Caption = #1074#1086#1079#1074#1088#1072#1097#1077#1085#1086
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label36: TLabel
            Left = 34
            Top = 132
            Width = 96
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1091#1084#1084#1072' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1081
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label37: TLabel
            Left = 45
            Top = 154
            Width = 85
            Height = 13
            Alignment = taRightJustify
            Caption = #1056#1077#1096#1077#1085#1080#1077' '#1089#1091#1076#1072' '#8470
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label38: TLabel
            Left = 343
            Top = 154
            Width = 33
            Height = 13
            Alignment = taRightJustify
            Caption = #1089#1091#1084#1084#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label39: TLabel
            Left = 225
            Top = 154
            Width = 11
            Height = 13
            Alignment = taRightJustify
            Caption = #1086#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBLookupComboboxEh1: TDBLookupComboboxEh
            Left = 144
            Top = 41
            Width = 319
            Height = 19
            AlwaysShowBorder = True
            DataField = 'JUD_DISTRICT_ID'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'DISTRICT'
            ListSource = MAINDM.dscJudDistricts
            ParentFont = False
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
          object DBLookupComboboxEh4: TDBLookupComboboxEh
            Left = 144
            Top = 63
            Width = 319
            Height = 19
            AlwaysShowBorder = True
            DataField = 'JUDGE_ID'
            DataSource = dscJudical
            EditButton.Style = ebsEllipsisEh
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'FIO'
            ListSource = MAINDM.dscJudges
            ParentFont = False
            ShowHint = True
            Style = csDropDownEh
            TabOrder = 1
            Visible = True
          end
          object DBEditEh3: TDBEditEh
            Left = 144
            Top = 107
            Width = 73
            Height = 19
            AlwaysShowBorder = True
            DataField = 'TAX'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object DBDateTimeEditEh3: TDBDateTimeEditEh
            Left = 145
            Top = 19
            Width = 89
            Height = 19
            AlwaysShowBorder = True
            DataField = 'ISK_DATE'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 3
            Visible = True
          end
          object DBLookupComboboxEh5: TDBLookupComboboxEh
            Left = 144
            Top = 85
            Width = 319
            Height = 19
            AlwaysShowBorder = True
            DataField = 'JUD_KIND_ID'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = MAINDM.dscJudKind
            ParentFont = False
            ShowHint = True
            TabOrder = 4
            Visible = True
          end
          object DBEditEh4: TDBEditEh
            Left = 309
            Top = 107
            Width = 73
            Height = 19
            AlwaysShowBorder = True
            DataField = 'TAX_RETURN'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 5
            Visible = True
          end
          object DBEditEh5: TDBEditEh
            Left = 144
            Top = 129
            Width = 73
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CLAIM'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 6
            Visible = True
          end
          object DBEditEh6: TDBEditEh
            Left = 144
            Top = 151
            Width = 73
            Height = 19
            AlwaysShowBorder = True
            DataField = 'DECISION_NO'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 7
            Visible = True
          end
          object DBDateTimeEditEh4: TDBDateTimeEditEh
            Left = 242
            Top = 151
            Width = 87
            Height = 19
            AlwaysShowBorder = True
            DataField = 'DECISION_DATE'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 8
            Visible = True
          end
          object DBEditEh8: TDBEditEh
            Left = 382
            Top = 151
            Width = 81
            Height = 19
            AlwaysShowBorder = True
            DataField = 'DECISION_SUM'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 9
            Visible = True
          end
        end
        object GroupBox9: TGroupBox
          Left = 474
          Top = 0
          Width = 544
          Height = 177
          Align = alClient
          Caption = ' '#1048#1089#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086#1077' '#1087#1088#1086#1080#1079#1074#1086#1076#1089#1090#1074#1086'  '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object Label40: TLabel
            Left = 35
            Top = 22
            Width = 144
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1087#1088#1080#1085#1103#1090#1080#1103' '#1080#1089#1087#1086#1083'. '#1083#1080#1089#1090#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label41: TLabel
            Left = 100
            Top = 44
            Width = 79
            Height = 13
            Alignment = taRightJustify
            Caption = #8470' '#1080#1089#1087#1086#1083'. '#1083#1080#1089#1090#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label42: TLabel
            Left = 85
            Top = 88
            Width = 94
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1083#1091#1078#1073#1072' '#1087#1088#1080#1089#1090#1072#1074#1086#1074
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label43: TLabel
            Left = 104
            Top = 110
            Width = 75
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1086#1089#1090#1086#1103#1085#1080#1077' '#1076#1077#1083
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label45: TLabel
            Left = 9
            Top = 66
            Width = 170
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1087#1088#1077#1076#1098#1103#1074#1083#1077#1085#1080#1103' '#1080#1089#1087#1086#1083'. '#1083#1080#1089#1090#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBDateTimeEditEh5: TDBDateTimeEditEh
            Left = 193
            Top = 19
            Width = 89
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WRIT_DATE_ACCEPT'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
          object DBEditEh15: TDBEditEh
            Left = 193
            Top = 41
            Width = 73
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WRIT_NO'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ShowHint = True
            TabOrder = 1
            Visible = True
          end
          object DBLookupComboboxEh7: TDBLookupComboboxEh
            Left = 193
            Top = 85
            Width = 319
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WRIT_DEPARTMENT_ID'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = MAINDM.dscWritDeps
            ParentFont = False
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object DBLookupComboboxEh8: TDBLookupComboboxEh
            Left = 193
            Top = 107
            Width = 319
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WRIT_STATE_ID'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = MAINDM.dscWritState
            ParentFont = False
            ShowHint = True
            TabOrder = 3
            Visible = True
          end
          object DBDateTimeEditEh6: TDBDateTimeEditEh
            Left = 193
            Top = 63
            Width = 89
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WRIT_DATE_PRESENT'
            DataSource = dscJudical
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 4
            Visible = True
          end
        end
      end
    end
    object tsPays: TTabSheet
      Caption = #1060#1080#1085#1072#1085#1089#1099
      OnShow = tsPaysShow
      object dbgPays: TDBGridEh
        Left = 0
        Top = 24
        Width = 1018
        Height = 575
        Align = alClient
        AllowedOperations = []
        DataGrouping.GroupLevels = <>
        DataSource = dscPays
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        FooterRowCount = 1
        ImeMode = imDisable
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        PopupMenu = pmPays
        RowDetailPanel.Color = clBtnFace
        RowHeight = 18
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = aPayEditExecute
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            Layout = tlCenter
          end
          item
            EditButtons = <>
            FieldName = 'PAYDATE'
            Footers = <>
            Layout = tlCenter
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footer.Color = clRed
            Footer.ValueType = fvtSum
            Footers = <>
            Layout = tlCenter
          end
          item
            EditButtons = <>
            FieldName = 'NOTES'
            Footers = <>
            Layout = tlCenter
            Width = 252
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'IS_ACCEPTED'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PAYSOURCE'
            Footers = <>
            Width = 164
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
      object ToolBar2: TToolBar
        Left = 0
        Top = 0
        Width = 1018
        Height = 24
        Caption = 'ToolBar1'
        GradientEndColor = 11319229
        Images = MainForm.ImageList2
        TabOrder = 1
        object ToolButton3: TToolButton
          Left = 0
          Top = 0
          Action = aPayAdd
        end
        object ToolButton2: TToolButton
          Left = 23
          Top = 0
          Action = aPayEdit
        end
        object ToolButton10: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton10'
          ImageIndex = 2
          Style = tbsSeparator
        end
        object ToolButton4: TToolButton
          Left = 54
          Top = 0
          Action = aPayDel
        end
        object ToolButton9: TToolButton
          Left = 77
          Top = 0
          Width = 11
          Caption = 'ToolButton9'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object dbgTypes: TDBLookupComboboxEh
          Left = 88
          Top = 0
          Width = 197
          Height = 22
          AlwaysShowBorder = True
          Color = cl3DLight
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = MAINDM.dscPayTypes
          ParentFont = False
          ShowHint = True
          TabOrder = 0
          Visible = True
          OnChange = dbgTypesChange
        end
      end
    end
    object tsToDo: TTabSheet
      Caption = #1056#1072#1073#1086#1090#1099
      ImageIndex = 2
      OnShow = tsToDoShow
      object ToolBar4: TToolBar
        Left = 0
        Top = 0
        Width = 1018
        Height = 24
        ButtonHeight = 23
        Caption = 'ToolBar1'
        GradientEndColor = 11319229
        Images = MainForm.ImageList2
        TabOrder = 0
        object ToolButton7: TToolButton
          Left = 0
          Top = 0
          Action = aToDoAdd
        end
        object ToolButton8: TToolButton
          Left = 23
          Top = 0
          Action = aToDoEdit
        end
        object ToolButton15: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton15'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object ToolButton16: TToolButton
          Left = 54
          Top = 0
          Action = aToDoDel
        end
        object ToolButton17: TToolButton
          Left = 77
          Top = 0
          Width = 8
          Caption = 'ToolButton17'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object Panel15: TPanel
          Left = 85
          Top = 0
          Width = 141
          Height = 23
          BevelOuter = bvNone
          TabOrder = 0
        end
      end
      object dbgToDo: TDBGridEh
        Left = 0
        Top = 24
        Width = 1018
        Height = 575
        Align = alClient
        AllowedOperations = [alopDeleteEh]
        DataGrouping.GroupLevels = <>
        DataSource = dscTodo
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clInactiveCaptionText
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        ImeMode = imDisable
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        RowDetailPanel.Color = clBtnFace
        RowHeight = 32
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = aToDoEditExecute
        OnGetCellParams = dbgToDoGetCellParams
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'WORKDATE'
            Footers = <>
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'WORKDESC'
            Footers = <>
            Width = 204
          end
          item
            EditButtons = <>
            FieldName = 'WORKER'
            Footers = <>
            Width = 114
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'WORKSTATUS'
            Footers = <>
            Title.Orientation = tohVertical
            Width = 36
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'ALARM'
            Footers = <>
            Title.Orientation = tohVertical
            Width = 34
          end
          item
            EditButtons = <>
            FieldName = 'MAKER'
            Footers = <>
            Width = 119
          end
          item
            EditButtons = <>
            FieldName = 'MAKEDATE'
            Footers = <>
            Width = 86
          end
          item
            EditButtons = <>
            FieldName = 'NOTES'
            Footers = <>
            Width = 162
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object tsGarant: TTabSheet
      Caption = #1043#1072#1088#1072#1085#1090#1080#1081#1085#1086#1077' '#1087#1080#1089#1100#1084#1086
      ImageIndex = 4
      object gbGarant: TGroupBox
        Left = 0
        Top = 33
        Width = 1018
        Height = 480
        Align = alClient
        Caption = ' '#1043#1088#1072#1092#1080#1082' '#1087#1086#1075#1072#1096#1077#1085#1080#1103' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Panel6: TPanel
          Left = 2
          Top = 15
          Width = 1014
          Height = 21
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object DBNavigator1: TDBNavigator
            Left = 0
            Top = 0
            Width = 73
            Height = 21
            DataSource = dscGarant
            VisibleButtons = [nbInsert, nbDelete, nbEdit]
            Align = alLeft
            Flat = True
            TabOrder = 0
          end
        end
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 36
          Width = 1014
          Height = 442
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dscGarant
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          ImeMode = imDisable
          ParentFont = False
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'PYEAR'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'PMONTH'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SUMMA'
              Footers = <>
              Width = 190
            end
            item
              EditButtons = <>
              FieldName = 'PAID'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 1018
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label4: TLabel
          Left = 172
          Top = 6
          Width = 11
          Height = 13
          Caption = #1086#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object cbGarantExists: TDBCheckBoxEh
          Left = 16
          Top = 4
          Width = 151
          Height = 17
          Alignment = taLeftJustify
          AlwaysShowBorder = True
          Caption = #1045#1089#1090#1100' '#1075#1072#1088#1072#1085#1090#1080#1081#1085#1086#1077' '#1087#1080#1089#1100#1084#1086
          DataField = 'GARANT_EXISTS'
          DataSource = dscDebt
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          ValueChecked = '1'
          ValueUnchecked = '0'
          OnClick = cbGarantExistsClick
        end
        object teGarantDate: TDBDateTimeEditEh
          Left = 190
          Top = 4
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          DataField = 'GARANT_DATE'
          DataSource = dscDebt
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
      end
      object GroupBox7: TGroupBox
        Left = 0
        Top = 513
        Width = 1018
        Height = 86
        Align = alBottom
        Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label20: TLabel
          Left = 14
          Top = 14
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = #1057#1086#1079#1076#1072#1085#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label21: TLabel
          Left = 5
          Top = 36
          Width = 52
          Height = 13
          Alignment = taRightJustify
          Caption = #1048#1079#1084#1077#1085#1077#1085#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEditEh16: TDBEditEh
          Left = 68
          Top = 12
          Width = 121
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'CREATEDATE'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Visible = True
        end
        object DBEditEh17: TDBEditEh
          Left = 190
          Top = 12
          Width = 211
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'CREATOR'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
        object DBEditEh18: TDBEditEh
          Left = 190
          Top = 34
          Width = 211
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'MODIFIER'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 2
          Visible = True
        end
        object DBEditEh19: TDBEditEh
          Left = 68
          Top = 34
          Width = 121
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'MODIFYDATE'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 3
          Visible = True
        end
        object cbClosed: TDBCheckBoxEh
          Left = 68
          Top = 58
          Width = 99
          Height = 17
          AlwaysShowBorder = True
          Caption = #1047#1072#1082#1088#1099#1090' '#1089' '#1076#1072#1090#1099
          DataField = 'CLOSED'
          DataSource = dscDebt
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          ValueChecked = '1'
          ValueUnchecked = '0'
          OnClick = cbClosedClick
        end
        object dteCloseDate: TDBDateTimeEditEh
          Left = 168
          Top = 56
          Width = 89
          Height = 19
          AlwaysShowBorder = True
          DataField = 'CLOSE_DATE'
          DataSource = dscDebt
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 5
          Visible = True
        end
      end
    end
    object tsDocs: TTabSheet
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090#1099' '#1080' '#1092#1072#1081#1083#1099
      ImageIndex = 1
      OnShow = tsDocsShow
      object Splitter1: TSplitter
        Left = 1013
        Top = 24
        Width = 5
        Height = 575
        Align = alRight
        Beveled = True
        ExplicitLeft = 635
        ExplicitHeight = 253
      end
      object ToolBar3: TToolBar
        Left = 0
        Top = 0
        Width = 1018
        Height = 24
        Caption = 'ToolBar1'
        GradientEndColor = 11319229
        Images = MainForm.ImageList2
        TabOrder = 0
        object ToolButton5: TToolButton
          Left = 0
          Top = 0
          Action = aDocAdd
        end
        object ToolButton6: TToolButton
          Left = 23
          Top = 0
          Action = aDocEdit
        end
        object ToolButton18: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton18'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object ToolButton19: TToolButton
          Left = 54
          Top = 0
          Action = aDocDel
        end
      end
      object GroupBox5: TGroupBox
        Left = 585
        Top = 24
        Width = 428
        Height = 575
        Align = alClient
        Caption = ' '#1057#1082#1072#1085' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Image1: TImage
          Left = 2
          Top = 15
          Width = 424
          Height = 558
          Align = alClient
          ExplicitLeft = 72
          ExplicitTop = 112
          ExplicitWidth = 105
          ExplicitHeight = 105
        end
      end
      object dbgDocs: TDBGridEh
        Left = 0
        Top = 24
        Width = 585
        Height = 575
        Align = alLeft
        DataGrouping.GroupLevels = <>
        DataSource = dscDocs
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clInactiveCaptionText
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        ImeMode = imDisable
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        PopupMenu = pnDocs
        RowDetailPanel.Color = clBtnFace
        RowHeight = 28
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = aDocEditExecute
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'DOCDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DOCTYPENAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DOCNAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DOCDESC'
            Footers = <>
            Width = 177
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object tsLinks: TTabSheet
      Caption = #1057#1074#1103#1079#1080
      ImageIndex = 1
      object ToolBar5: TToolBar
        Left = 0
        Top = 0
        Width = 1018
        Height = 24
        Caption = 'ToolBar1'
        GradientEndColor = 11319229
        Images = MainForm.ImageList2
        TabOrder = 0
        object ToolButton11: TToolButton
          Left = 0
          Top = 0
          Action = aCoDebtorsAdd
        end
        object ToolButton12: TToolButton
          Left = 23
          Top = 0
          Action = aCoDebtorsEdit
        end
        object ToolButton13: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton18'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object ToolButton14: TToolButton
          Left = 54
          Top = 0
          Action = aCoDebtorsDel
        end
      end
      object dbgCoDebtors: TDBGridEh
        Left = 0
        Top = 24
        Width = 1018
        Height = 575
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dscCoDebtors
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clInactiveCaptionText
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        PopupMenu = pnDocs
        RowDetailPanel.Color = clBtnFace
        RowHeight = 18
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = aDocEditExecute
        Columns = <
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            Width = 299
          end
          item
            EditButtons = <>
            FieldName = 'BIRTH_DATE'
            Footers = <>
            Width = 84
          end
          item
            EditButtons = <>
            FieldName = 'RODSTVO'
            Footers = <>
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 648
    Top = 102
  end
  inherited ActionList1: TActionList
    Left = 614
    Top = 102
    object aDebtor: TAction [2]
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088'/'#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1076#1086#1083#1078#1085#1080#1082#1072
      ImageIndex = 28
    end
    object aPrint: TAction [3]
      Caption = #1055#1077#1095#1072#1090#1100
      Hint = #1055#1077#1095#1072#1090#1100' '#1082#1072#1088#1090#1086#1095#1082#1080' '#1076#1086#1083#1075#1072
      ImageIndex = 1
    end
  end
  object dsPaidMethod: TpFIBDataSet [4]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_PAID_METHODS ')
    Transaction = MAINDM.MainTransaction
    Database = MAINDM.MainDB
    Left = 584
    Top = 244
  end
  object dscPaidMethod: TDataSource [5]
    DataSet = dsPaidMethod
    Left = 612
    Top = 244
  end
  object dscDebtor: TDataSource [6]
    DataSet = dsDebtor
    OnDataChange = dscDebtorDataChange
    Left = 612
    Top = 278
  end
  object dsDebtCreate: TpFIBDataSet [7]
    SelectSQL.Strings = (
      'SELECT'
      '    RID'
      'FROM'
      '    RST_DEBTS_INS ')
    AllowedUpdateKinds = []
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 584
    Top = 178
    object dsDebtCreateRID: TFIBIntegerField
      FieldName = 'RID'
    end
  end
  object dsDebtorCreate: TpFIBDataSet [8]
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTS'
      'SET '
      '    TYPE_ID = :TYPE_ID,'
      '    CONTRAGENT_ID = :CONTRAGENT_ID,'
      '    DEBTOR_ID = :DEBTOR_ID,'
      '    COLLECTOR_ID = :COLLECTOR_ID,'
      '    BDATE = :BDATE,'
      '    SUMMA = :SUMMA,'
      '    PRIZE_PERCENT = :PRIZE_PERCENT,'
      '    PRIZE_MIN = :PRIZE_MIN,'
      '    PRIZE_FIX = :PRIZE_FIX,'
      '    IS_DELETED = :IS_DELETED,'
      '    CLOSED = :CLOSED,'
      '    CLOSE_DATE = :CLOSE_DATE,'
      '    PAID_METHOD = :PAID_METHOD,'
      '    NOTES = :NOTES'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTS('
      '    ID,'
      '    TYPE_ID,'
      '    CONTRAGENT_ID,'
      '    DEBTOR_ID,'
      '    COLLECTOR_ID,'
      '    BDATE,'
      '    SUMMA,'
      '    PRIZE_PERCENT,'
      '    PRIZE_MIN,'
      '    PRIZE_FIX,'
      '    IS_DELETED,'
      '    CLOSED,'
      '    CLOSE_DATE,'
      '    PAID_METHOD,'
      '    NOTES'
      ')'
      'VALUES('
      '    :ID,'
      '    :TYPE_ID,'
      '    :CONTRAGENT_ID,'
      '    :DEBTOR_ID,'
      '    :COLLECTOR_ID,'
      '    :BDATE,'
      '    :SUMMA,'
      '    :PRIZE_PERCENT,'
      '    :PRIZE_MIN,'
      '    :PRIZE_FIX,'
      '    :IS_DELETED,'
      '    :CLOSED,'
      '    :CLOSE_DATE,'
      '    :PAID_METHOD,'
      '    :NOTES'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    d.id,'
      '    d.type_id,'
      '    d.contragent_id,'
      '    d.debtor_id,'
      '    d.collector_id,'
      '    d.bdate,'
      '    d.summa,'
      '    d.prize_percent,'
      '    d.prize_min,'
      '    d.prize_fix,'
      '    d.is_deleted,'
      '    d.closed,'
      '    d.close_date,'
      '    d.paid_method,'
      '    d.notes,'
      
        '    (select rname from PR_GET_USER_NAME(d.createuserid)) as crea' +
        'tor,'
      '    d.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(d.modifyuserid)) as modi' +
        'fier,'
      '    d.modifydate'
      'FROM'
      '    RST_DEBTS d'
      'where(  d.id = :pdebt_id'
      '     ) and (     D.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    RID'
      'FROM'
      '    RST_DEBTORS_INS ')
    AllowedUpdateKinds = []
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 584
    Top = 310
    object dsDebtorCreateRID: TFIBIntegerField
      FieldName = 'RID'
    end
  end
  object dsDebtTraits: TpFIBDataSet [9]
    SelectSQL.Strings = (
      'select'
      '  rdd.ID,'
      '  sd.name'
      'from rst_debt_details rdd'
      '  join spr_details sd on sd.id = rdd.detail_id'
      'where rdd.debt_id = :pdebt_id'
      'order by 2')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 584
    Top = 342
    object dsDebtTraitsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscDebtTraits: TDataSource [10]
    DataSet = dsDebtTraits
    Left = 612
    Top = 344
  end
  object dsPays: TpFIBDataSet [11]
    UpdateSQL.Strings = (
      'UPDATE RST_PAYS'
      'SET '
      '    IS_DELETED = :IS_DELETED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select rp.id,'
      'spt.name,'
      'rp.paydate,'
      'rp.summa * spt.csign as summa,'
      'rp.is_accepted,'
      'rp.notes,'
      'rp.is_deleted,'
      'ps.name as paysource'
      'from rst_pays rp'
      '  join spr_pay_types spt on spt.id = rp.type_id'
      '  left join spr_paysource ps on ps.id = rp.paysource_id'
      'where rp.debt_id = :pdebt_id'
      '  and rp.is_deleted = 0'
      '  and (coalesce(:ptype_id,0) = 0 or rp.type_id = :ptype_id)'
      'order by rp.paydate desc')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 904
    Top = 372
    object dsPaysID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsPaysNAME: TFIBStringField
      DisplayLabel = #1058#1080#1087
      FieldName = 'NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsPaysPAYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'PAYDATE'
    end
    object dsPaysSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsPaysNOTES: TFIBStringField
      DisplayLabel = #1047#1072#1084#1077#1090#1082#1080
      FieldName = 'NOTES'
      Size = 255
      EmptyStrToNull = True
    end
    object dsPaysIS_ACCEPTED: TFIBSmallIntField
      DisplayLabel = #1055#1088#1080#1085#1103#1090
      FieldName = 'IS_ACCEPTED'
    end
    object dsPaysPAYSOURCE: TFIBStringField
      DisplayLabel = #1052#1077#1089#1090#1086' '#1087#1083#1072#1090#1077#1078#1072
      FieldName = 'PAYSOURCE'
      Size = 32
      EmptyStrToNull = True
    end
  end
  object dscPays: TDataSource [12]
    DataSet = dsPays
    Left = 932
    Top = 372
  end
  object trDebt: TpFIBTransaction [13]
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    Left = 583
    Top = 146
  end
  object dsStreets: TpFIBDataSet [14]
    RefreshSQL.Strings = (
      'select'
      'cast(0 as integer) as ID,'
      'cast('#39#1042#1089#1077' '#1091#1083#1080#1094#1099#39' as varchar(60)) as NAME'
      'from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_STREETS ')
    SelectSQL.Strings = (
      'select'
      'cast(0 as integer) as ID,'
      'cast('#39#1042#1089#1077' '#1091#1083#1080#1094#1099#39' as varchar(60)) as NAME'
      'from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_STREETS '
      'order by 1')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 904
    Top = 406
  end
  object dscStreets: TDataSource [15]
    DataSet = dsStreets
    Left = 932
    Top = 407
  end
  object qDelPay: TpFIBQuery [16]
    Transaction = trDebt
    Database = MAINDM.MainDB
    SQL.Strings = (
      'UPDATE RST_PAYS SET '
      '    IS_DELETED=1'
      'WHERE'
      '    ID=:ppay_id')
    Left = 964
    Top = 406
    qoStartTransaction = True
  end
  object dsDebtor: TpFIBDataSet [17]
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTORS'
      'SET '
      '    NAME = :NAME,'
      '    BIRTH_DATE = :BIRTH_DATE,'
      '    TOWN = :TOWN,'
      '    STREET = :STREET,'
      '    HOUSE = :HOUSE,'
      '    APPARTS = :APPARTS,'
      '    NOTES = :NOTES,'
      '    DEBTPHOTO = :DEBTPHOTO,'
      '    IS_DELETED = :IS_DELETED,'
      '    PHONE_HOME = :PHONE_HOME,'
      '    PHONE_CELL = :PHONE_CELL,'
      '    PHONE_CELL2 = :PHONE_CELL2,'
      '    PHONE_WORK = :PHONE_WORK,'
      '    WORKPLACE = :WORKPLACE,'
      '    REAL_ADDRESS = :REAL_ADDRESS'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTORS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTORS('
      '    ID,'
      '    NAME,'
      '    BIRTH_DATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    APPARTS,'
      '    NOTES,'
      '    DEBTPHOTO,'
      '    IS_DELETED,'
      '    PHONE_HOME,'
      '    PHONE_CELL,'
      '    PHONE_CELL2,'
      '    PHONE_WORK,'
      '    WORKPLACE,'
      '    REAL_ADDRESS'
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME,'
      '    :BIRTH_DATE,'
      '    :TOWN,'
      '    :STREET,'
      '    :HOUSE,'
      '    :APPARTS,'
      '    :NOTES,'
      '    :DEBTPHOTO,'
      '    :IS_DELETED,'
      '    :PHONE_HOME,'
      '    :PHONE_CELL,'
      '    :PHONE_CELL2,'
      '    :PHONE_WORK,'
      '    :WORKPLACE,'
      '    :REAL_ADDRESS'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    BIRTH_DATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    APPARTS,'
      '    NOTES,'
      '    DEBTPHOTO,'
      '    IS_DELETED,'
      '    PHONE_HOME,'
      '    PHONE_CELL,'
      '    PHONE_CELL2,'
      '    PHONE_WORK,'
      '    WORKPLACE,'
      '    REAL_ADDRESS'
      'FROM'
      '    RST_DEBTORS '
      ''
      ' WHERE '
      '        RST_DEBTORS.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    BIRTH_DATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    APPARTS,'
      '    NOTES,'
      '    DEBTPHOTO,'
      '    IS_DELETED,'
      '    PHONE_HOME,'
      '    PHONE_CELL,'
      '    PHONE_CELL2,'
      '    PHONE_WORK,'
      '    WORKPLACE,'
      '    REAL_ADDRESS'
      'FROM'
      '    RST_DEBTORS '
      'where id = :pdebtor_id')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 584
    Top = 278
    object dsDebtorID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsDebtorNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtorBIRTH_DATE: TFIBDateField
      FieldName = 'BIRTH_DATE'
    end
    object dsDebtorSTREET: TFIBStringField
      FieldName = 'STREET'
      Size = 60
      EmptyStrToNull = True
    end
    object dsDebtorHOUSE: TFIBStringField
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorAPPARTS: TFIBStringField
      FieldName = 'APPARTS'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorNOTES: TFIBStringField
      FieldName = 'NOTES'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorDEBTPHOTO: TFIBBlobField
      FieldName = 'DEBTPHOTO'
      Size = 8
    end
    object dsDebtorIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
    object dsDebtorPHONE_HOME: TFIBStringField
      FieldName = 'PHONE_HOME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_CELL: TFIBStringField
      FieldName = 'PHONE_CELL'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_CELL2: TFIBStringField
      FieldName = 'PHONE_CELL2'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_WORK: TFIBStringField
      FieldName = 'PHONE_WORK'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorWORKPLACE: TFIBStringField
      FieldName = 'WORKPLACE'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorREAL_ADDRESS: TFIBStringField
      FieldName = 'REAL_ADDRESS'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorTOWN: TFIBStringField
      FieldName = 'TOWN'
      Size = 32
      EmptyStrToNull = True
    end
  end
  object pmDetails: TPopupMenu [18]
    Images = MainForm.ImageList2
    Left = 741
    Top = 210
    object N5: TMenuItem
      Action = aDetails
    end
  end
  object ActionList2: TActionList [19]
    Images = MainForm.ImageList2
    Left = 685
    Top = 103
    object aCoDebtorsAdd: TAction
      Category = 'CoDebtors'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1088#1091#1095#1080#1090#1077#1083#1103'/'#1089#1086#1076#1086#1083#1078#1085#1080#1082#1072
      Hint = #1074#1099#1079#1074#1072#1090#1100' '#1086#1082#1085#1086' '#1087#1086#1080#1089#1082#1072' '#1075#1088#1072#1078#1076#1072#1085' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1087#1086#1088#1091#1095#1080#1090#1077#1083#1103'/'#1089#1086#1076#1086#1083#1078#1085#1080#1082#1072
      ImageIndex = 1
      OnExecute = aCoDebtorsAddExecute
    end
    object aPayAdd: TAction
      Category = 'pays'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 1
      OnExecute = aPayAddExecute
    end
    object aCoDebtorsEdit: TAction
      Category = 'CoDebtors'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100' '#1082#1072#1088#1090#1086#1095#1082#1091' '#1075#1088#1072#1078#1076#1072#1085#1080#1085#1072
      ImageIndex = 3
    end
    object aPayEdit: TAction
      Category = 'pays'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 3
      OnExecute = aPayEditExecute
    end
    object aPayDel: TAction
      Category = 'pays'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 0
      OnExecute = aPayDelExecute
    end
    object aDetails: TAction
      Category = 'Details'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1076#1086#1083#1075#1072
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1076#1086#1083#1075#1072
      ImageIndex = 3
      OnExecute = aDetailsExecute
    end
    object aToDoAdd: TAction
      Category = 'ToDo'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1088#1072#1073#1086#1090#1091' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1088#1072#1073#1086#1090#1091' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 1
      OnExecute = aToDoAddExecute
    end
    object aToDoEdit: TAction
      Category = 'ToDo'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1088#1072#1073#1086#1090#1091' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1088#1072#1073#1086#1090#1091' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 3
      OnExecute = aToDoEditExecute
    end
    object aToDoDel: TAction
      Category = 'ToDo'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1088#1072#1073#1086#1090#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1099#1076#1077#1083#1077#1085#1085#1091#1102' '#1088#1072#1073#1086#1090#1091' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 0
      OnExecute = aToDoDelExecute
    end
    object aDocAdd: TAction
      Category = 'Docs'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1080#1083#1080' '#1092#1072#1081#1083
      ImageIndex = 1
      OnExecute = aDocAddExecute
    end
    object aDocEdit: TAction
      Category = 'Docs'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1074#1099#1076#1077#1083#1077#1085#1085#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090
      ImageIndex = 3
      OnExecute = aDocEditExecute
    end
    object aDocDel: TAction
      Category = 'Docs'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1099#1076#1077#1083#1077#1085#1085#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090
      ImageIndex = 0
      OnExecute = aDocDelExecute
    end
    object aEnlage: TAction
      Category = 'Docs'
      Caption = #1059#1074#1077#1083#1080#1095#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1059#1074#1077#1083#1080#1095#1080#1090#1100' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
    end
    object aCoDebtorsDel: TAction
      Category = 'CoDebtors'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1089#1074#1103#1079#1100' '#1075#1088#1072#1078#1076#1072#1085#1080#1085#1072' '#1089' '#1076#1086#1083#1075#1086#1084
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1089#1074#1103#1079#1100' '#1075#1088#1072#1078#1076#1072#1085#1080#1085#1072' '#1089' '#1076#1086#1083#1075#1086#1084
      ImageIndex = 0
      OnExecute = aCoDebtorsDelExecute
    end
  end
  object trDelPay: TpFIBTransaction [20]
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    Left = 994
    Top = 406
  end
  object pmPays: TPopupMenu [21]
    Images = MainForm.ImageList2
    Left = 410
    Top = 278
    object N6: TMenuItem
      Action = aPayAdd
    end
    object N7: TMenuItem
      Action = aPayEdit
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = aPayDel
    end
  end
  object pmWarns: TPopupMenu [22]
    Images = MainForm.ImageList2
    Left = 440
    Top = 278
    object N10: TMenuItem
      Caption = #1053#1086#1074#1086#1077' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1074#1086#1077' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 1
    end
    object N11: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1086#1077' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
      ImageIndex = 3
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N13: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1077' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
      ImageIndex = 0
    end
  end
  object dsTodo: TpFIBDataSet [23]
    RefreshSQL.Strings = (
      'select'
      '    rt.id,'
      '    rt.worktype,'
      '    rt.workdesc,'
      '    rt.worksumma,'
      '    ul1.name as worker,'
      '    rt.workdate,'
      '    rt.workstatus,'
      '    rt.alarm,'
      '    ul2.name as maker,'
      '    rt.makedate,'
      '    rt.notes,'
      '    rt.alarm'
      'from rst_todo rt'
      '  left join user_list ul1 on ul1.id = rt.worker_id'
      '  left join user_list ul2 on ul2.id = rt.makeit_id'
      'where(  rt.debt_id = :pdebt_id'
      '  and rt.is_deleted = 0'
      '     ) and (     RT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select'
      '    rt.id,'
      '    rt.worktype,'
      '    rt.workdesc,'
      '    rt.worksumma,'
      '    ul1.name as worker,'
      '    rt.workdate,'
      '    rt.workstatus,'
      '    ul2.name as maker,'
      '    rt.makedate,'
      '    rt.notes,'
      '    rt.alarm'
      'from rst_todo rt'
      '  left join user_list ul1 on ul1.id = rt.worker_id'
      '  left join user_list ul2 on ul2.id = rt.makeit_id'
      'where rt.debt_id = :pdebt_id'
      '  and rt.is_deleted = 0'
      'order by rt.workdate desc')
    AllowedUpdateKinds = [ukDelete]
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 904
    Top = 438
    object dsTodoID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTodoWORKDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'WORKDATE'
    end
    object dsTodoWORKDESC: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1088#1072#1073#1086#1090#1099
      FieldName = 'WORKDESC'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTodoWORKER: TFIBStringField
      DisplayLabel = #1050#1086#1084#1091' '#1085#1072#1079#1085#1072#1095#1077#1085#1072
      FieldName = 'WORKER'
      Size = 120
      EmptyStrToNull = True
    end
    object dsTodoWORKSTATUS: TFIBSmallIntField
      DisplayLabel = #1042#1099#1087#1086#1083#1085#1077#1085#1072
      FieldName = 'WORKSTATUS'
    end
    object dsTodoMAKER: TFIBStringField
      DisplayLabel = #1042#1099#1087#1086#1083#1085#1077#1085#1072'|'#1050#1077#1084
      FieldName = 'MAKER'
      Size = 120
      EmptyStrToNull = True
    end
    object dsTodoMAKEDATE: TFIBDateField
      DisplayLabel = #1042#1099#1087#1086#1083#1085#1077#1085#1072'|'#1050#1086#1075#1076#1072
      FieldName = 'MAKEDATE'
    end
    object dsTodoNOTES: TFIBStringField
      DisplayLabel = #1047#1072#1084#1077#1090#1082#1080
      FieldName = 'NOTES'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsTodoALARM: TFIBSmallIntField
      DisplayLabel = #1057#1088#1086#1095#1085#1072#1103
      FieldName = 'ALARM'
    end
    object dsTodoWORKSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'WORKSUMMA'
      Size = 2
      RoundByScale = True
    end
  end
  object dscTodo: TDataSource [24]
    DataSet = dsTodo
    Left = 932
    Top = 438
  end
  object qDelToDo: TpFIBQuery [25]
    Transaction = trDebt
    Database = MAINDM.MainDB
    SQL.Strings = (
      'UPDATE RST_TODO'
      '  set IS_DELETED=1'
      'WHERE'
      '    ID=:ptodo_id')
    Left = 964
    Top = 438
    qoStartTransaction = True
  end
  object pmToDo: TPopupMenu [26]
    Images = MainForm.ImageList2
    Left = 474
    Top = 276
    object MenuItem1: TMenuItem
      Action = aToDoAdd
    end
    object MenuItem2: TMenuItem
      Action = aToDoEdit
    end
    object MenuItem3: TMenuItem
      Caption = '-'
    end
    object MenuItem4: TMenuItem
      Action = aToDoDel
    end
  end
  object dsDocs: TpFIBDataSet [27]
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBT_DOCUMENTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    rdd.ID,'
      '    rdd.DOCNAME,'
      '    RDD.DOCTYPE,'
      '    DT.NAME as DOCTYPENAME,'
      '    rdd.DOCDESC,'
      '    rdd.DOCDATE,'
      '    rdd.DOCSCAN'
      'FROM'
      '    RST_DEBT_DOCUMENTS rdd'
      '    left join spr_doc_types dt on dt.id = rdd.doctype'
      'where rdd.debt_id = :pdebt_id'
      'and rdd.is_deleted = 0')
    AllowedUpdateKinds = []
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 904
    Top = 470
    object dsDocsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsDocsDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DOCDATE'
    end
    object dsDocsDOCNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'DOCNAME'
      EmptyStrToNull = True
    end
    object dsDocsDOCDESC: TFIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'DOCDESC'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsDocsDOCSCAN: TFIBMemoField
      FieldName = 'DOCSCAN'
      BlobType = ftMemo
      Size = 8
    end
    object dsDocsDOCTYPE: TFIBIntegerField
      FieldName = 'DOCTYPE'
    end
    object dsDocsDOCTYPENAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1076#1086#1082'-'#1090#1072
      FieldName = 'DOCTYPENAME'
      Size = 32
      EmptyStrToNull = True
    end
  end
  object dscDocs: TDataSource [28]
    DataSet = dsDocs
    Left = 932
    Top = 470
  end
  object qDelDoc: TpFIBQuery [29]
    Transaction = trDebt
    Database = MAINDM.MainDB
    SQL.Strings = (
      'UPDATE RST_DEBT_DOCUMENTS'
      '  set IS_DELETED=1'
      'WHERE'
      '    ID=:pdoc_id')
    Left = 964
    Top = 470
    qoStartTransaction = True
  end
  object pnDocs: TPopupMenu [30]
    Images = MainForm.ImageList2
    Left = 508
    Top = 278
    object MenuItem5: TMenuItem
      Action = aDocAdd
    end
    object MenuItem6: TMenuItem
      Action = aDocEdit
    end
    object MenuItem7: TMenuItem
      Caption = '-'
    end
    object MenuItem8: TMenuItem
      Action = aDocDel
    end
  end
  object dscGarant: TDataSource [31]
    DataSet = dsGarant
    OnDataChange = dscDebtorDataChange
    Left = 934
    Top = 506
  end
  object dsGarant: TpFIBDataSet [32]
    UpdateSQL.Strings = (
      'UPDATE RST_GARANT'
      'SET '
      '    PYEAR = :PYEAR,'
      '    PMONTH = :PMONTH,'
      '    SUMMA = :SUMMA'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_GARANT'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_GARANT('
      '    ID,'
      '    DEBT_ID,'
      '    PYEAR,'
      '    PMONTH,'
      '    SUMMA'
      ')'
      'VALUES('
      '    :ID,'
      '    :PDEBT_ID,'
      '    :PYEAR,'
      '    :PMONTH,'
      '    :SUMMA'
      ')')
    RefreshSQL.Strings = (
      'select'
      '    g.id,   '
      '    g.debt_id, '
      '    g.pyear,'
      '    g.pmonth,    '
      '    g.summa,'
      '    ('
      '      select -sum(p.summa * pt.csign)'
      '      from rst_pays p'
      '        join spr_pay_types pt on pt.id = p.type_id'
      '          and pt.ispay = 1'
      '      where p.debt_id = :pdebt_id'
      '        and getmonth(p.paydate) = g.pmonth'
      '        and getyear(p.paydate) = g.pyear'
      '    ) as paid'
      'from'
      '    rst_garant g'
      'where(  g.debt_id = :pdebt_id'
      '  and g.is_deleted = 0'
      '     ) and (     G.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select'
      '    g.id,   '
      '    g.debt_id, '
      '    g.pyear,'
      '    g.pmonth,    '
      '    g.summa,'
      '    ('
      '      select -sum(p.summa * pt.csign)'
      '      from rst_pays p'
      '        join spr_pay_types pt on pt.id = p.type_id'
      '          and pt.ispay = 1'
      '      where p.debt_id = :pdebt_id'
      '        and getmonth(p.paydate) = g.pmonth'
      '        and getyear(p.paydate) = g.pyear'
      '    ) as paid'
      'from'
      '    rst_garant g'
      'where g.debt_id = :pdebt_id'
      '  and g.is_deleted = 0'
      'order by 2,3')
    AutoUpdateOptions.UpdateTableName = 'RST_GARANT'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_RST_GARANT_ID'
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 904
    Top = 506
    object dsGarantID: TFIBIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object dsGarantPYEAR: TFIBSmallIntField
      DisplayLabel = #1043#1086#1076
      FieldName = 'PYEAR'
    end
    object dsGarantPMONTH: TFIBSmallIntField
      DisplayLabel = #1052#1077#1089#1103#1094
      FieldName = 'PMONTH'
    end
    object dsGarantSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsGarantPAID: TFIBBCDField
      DisplayLabel = #1054#1087#1083#1072#1095#1077#1085#1086
      FieldName = 'PAID'
      Size = 2
      RoundByScale = True
    end
  end
  object dsTestDebtor: TpFIBDataSet [33]
    UpdateSQL.Strings = (
      'UPDATE RST_GARANT'
      'SET '
      '    PYEAR = :PYEAR,'
      '    PMONTH = :PMONTH,'
      '    SUMMA = :SUMMA'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_GARANT'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_GARANT('
      '    ID,'
      '    DEBT_ID,'
      '    PYEAR,'
      '    PMONTH,'
      '    SUMMA'
      ')'
      'VALUES('
      '    :ID,'
      '    :PDEBT_ID,'
      '    :PYEAR,'
      '    :PMONTH,'
      '    :SUMMA'
      ')')
    RefreshSQL.Strings = (
      'select'
      '    g.id,   '
      '    g.debt_id, '
      '    g.pyear,'
      '    g.pmonth,    '
      '    g.summa,'
      '    ('
      '      select -sum(p.summa * pt.csign)'
      '      from rst_pays p'
      '        join spr_pay_types pt on pt.id = p.type_id'
      '          and pt.ispay = 1'
      '      where p.debt_id = :pdebt_id'
      '        and getmonth(p.paydate) = g.pmonth'
      '        and getyear(p.paydate) = g.pyear'
      '    ) as paid'
      'from'
      '    rst_garant g'
      'where(  g.debt_id = :pdebt_id'
      '  and g.is_deleted = 0'
      '     ) and (     G.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT count(1) as cnt'
      'FROM'
      '    RST_DEBTORS dr'
      'where dr.NAME starting rupper(trim(:name))')
    AutoUpdateOptions.UpdateTableName = 'RST_GARANT'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_RST_GARANT_ID'
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    Transaction = MAINDM.MainTransaction
    Database = MAINDM.MainDB
    Left = 904
    Top = 537
    object dsTestDebtorCNT: TFIBIntegerField
      FieldName = 'CNT'
    end
  end
  object dscCoDebtors: TDataSource [34]
    DataSet = dsCoDebtors
    OnDataChange = dscDebtorDataChange
    Left = 934
    Top = 566
  end
  object qCoDebtorAdd: TpFIBQuery [35]
    Transaction = trDebt
    Database = MAINDM.MainDB
    SQL.Strings = (
      'INSERT INTO RST_DEBT_CODEBTORS ('
      '    DEBT_ID,'
      '    DEBTOR_ID'
      ') VALUES ('
      '    :PDEBT_ID,'
      '    :PDEBTOR_ID'
      ')')
    Left = 962
    Top = 566
  end
  object dsCoDebtors: TpFIBDataSet [36]
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBT_CODEBTORS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'SELECT'
      '    cod.id,'
      '    dt.NAME,'
      '    dt.BIRTH_DATE,'
      '    cod.rodstvo'
      'FROM rst_debt_codebtors cod'
      '  join RST_DEBTORS dt on cod.codebtor_id = dt.id'
      '  join rst_debts d on d.debtor_id = dt.id'
      'where(  d.id = :pdebt_id'
      '  and cod.is_deleted <> 1'
      '  and dt.is_deleted <> 1'
      '     ) and (     COD.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    cod.id,'
      '    dt.NAME,'
      '    dt.BIRTH_DATE,'
      '    cod.rodstvo'
      'FROM rst_debt_codebtors cod'
      '  join RST_DEBTORS dt on cod.codebtor_id = dt.id'
      '  join rst_debts d on d.debtor_id = dt.id'
      'where d.id = :pdebt_id'
      '  and cod.is_deleted <> 1'
      '  and dt.is_deleted <> 1')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 906
    Top = 566
    object dsCoDebtorsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsCoDebtorsNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsCoDebtorsBIRTH_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'BIRTH_DATE'
    end
    object dsCoDebtorsRODSTVO: TFIBStringField
      DisplayLabel = #1054#1090#1085#1086#1096#1077#1085#1080#1077
      FieldName = 'RODSTVO'
      EmptyStrToNull = True
    end
  end
  object dsInsertContragent: TpFIBDataSet [37]
    InsertSQL.Strings = (
      'INSERT INTO SPR_CONTRAGENTS('
      '    ID,'
      '    NAME'
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME'
      ')')
    SelectSQL.Strings = (
      'select id, name from spr_contragents where id = null')
    AutoUpdateOptions.UpdateTableName = 'SPR_CONTRAGENTS'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_SPR_CONTRAGENTS_ID'
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 906
    Top = 600
    object dsInsertContragentID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsInsertContragentNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsJudical: TpFIBDataSet [38]
    UpdateSQL.Strings = (
      'UPDATE VW_JUDICAL'
      'SET '
      '    ISK_DATE = :ISK_DATE,'
      '    JUD_DISTRICT_ID = :JUD_DISTRICT_ID,'
      '    JUDGE_ID = :JUDGE_ID,'
      '    JUD_KIND_ID = :JUD_KIND_ID,'
      '    TAX = :TAX,'
      '    TAX_RETURN = :TAX_RETURN,'
      '    CLAIM = :CLAIM,'
      '    DECISION_NO = :DECISION_NO,'
      '    DECISION_DATE = :DECISION_DATE,'
      '    DECISION_SUM = :DECISION_SUM,'
      '    WRIT_DATE_ACCEPT = :WRIT_DATE_ACCEPT,'
      '    WRIT_NO = :WRIT_NO,'
      '    WRIT_DATE_PRESENT = :WRIT_DATE_PRESENT,'
      '    WRIT_DEPARTMENT_ID = :WRIT_DEPARTMENT_ID,'
      '    WRIT_STATE_ID = :WRIT_STATE_ID,'
      '    NOTES = :NOTES'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    VW_JUDICAL'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO VW_JUDICAL('
      '    DEBT_ID,'
      '    ISK_DATE,'
      '    JUD_DISTRICT_ID,'
      '    JUDGE_ID,'
      '    JUD_KIND_ID,'
      '    TAX,'
      '    TAX_RETURN,'
      '    CLAIM,'
      '    DECISION_NO,'
      '    DECISION_DATE,'
      '    DECISION_SUM,'
      '    WRIT_DATE_ACCEPT,'
      '    WRIT_NO,'
      '    WRIT_DATE_PRESENT,'
      '    WRIT_DEPARTMENT_ID,'
      '    WRIT_STATE_ID,'
      '    NOTES'
      ')'
      'VALUES('
      '    :DEBT_ID,'
      '    :ISK_DATE,'
      '    :JUD_DISTRICT_ID,'
      '    :JUDGE_ID,'
      '    :JUD_KIND_ID,'
      '    :TAX,'
      '    :TAX_RETURN,'
      '    :CLAIM,'
      '    :DECISION_NO,'
      '    :DECISION_DATE,'
      '    :DECISION_SUM,'
      '    :WRIT_DATE_ACCEPT,'
      '    :WRIT_NO,'
      '    :WRIT_DATE_PRESENT,'
      '    :WRIT_DEPARTMENT_ID,'
      '    :WRIT_STATE_ID,'
      '    :NOTES'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    DEBT_ID,'
      '    ISK_DATE,'
      '    JUD_DISTRICT_ID,'
      '    DISTRICT,'
      '    JUDGE_ID,'
      '    JUDGE,'
      '    JUD_KIND_ID,'
      '    KIND,'
      '    TAX,'
      '    TAX_RETURN,'
      '    CLAIM,'
      '    DECISION_NO,'
      '    DECISION_DATE,'
      '    DECISION_SUM,'
      '    WRIT_DATE_ACCEPT,'
      '    WRIT_NO,'
      '    WRIT_DATE_PRESENT,'
      '    WRIT_DEPARTMENT_ID,'
      '    WRIT_DEPARTMENT,'
      '    WRIT_STATE_ID,'
      '    WRIT_STATE,'
      '    NOTES'
      'FROM'
      '    VW_JUDICAL '
      ''
      ' WHERE '
      '        VW_JUDICAL.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    DEBT_ID,'
      '    ISK_DATE,'
      '    JUD_DISTRICT_ID,'
      '    DISTRICT,'
      '    JUDGE_ID,'
      '    JUDGE,'
      '    JUD_KIND_ID,'
      '    KIND,'
      '    TAX,'
      '    TAX_RETURN,'
      '    CLAIM,'
      '    DECISION_NO,'
      '    DECISION_DATE,'
      '    DECISION_SUM,'
      '    WRIT_DATE_ACCEPT,'
      '    WRIT_NO,'
      '    WRIT_DATE_PRESENT,'
      '    WRIT_DEPARTMENT_ID,'
      '    WRIT_DEPARTMENT,'
      '    WRIT_STATE_ID,'
      '    WRIT_STATE,'
      '    NOTES'
      'FROM'
      '    VW_JUDICAL '
      'where DEBT_ID = :pdebt_id')
    AutoUpdateOptions.UpdateTableName = 'SPR_CONTRAGENTS'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_SPR_CONTRAGENTS_ID'
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 898
    Top = 344
  end
  object dscJudical: TDataSource [39]
    DataSet = dsJudical
    OnDataChange = dscDebtorDataChange
    Left = 934
    Top = 342
  end
  object dsDebt: TpFIBDataSet [40]
    UpdateSQL.Strings = (
      'UPDATE VW_DEBTS'
      'SET '
      '    NLS = :NLS,'
      '    PERIOD_ID = :PERIOD_ID,'
      '    KIND_ID = :KIND_ID,'
      '    DEBTOR_ID = :DEBTOR_ID,'
      '    COLLECTOR_ID = :COLLECTOR_ID,'
      '    SUMMA = :SUMMA,'
      '    IS_DELETED = :IS_DELETED,'
      '    CLOSED = :CLOSED,'
      '    CLOSE_DATE = :CLOSE_DATE,'
      '    PAID_METHOD = :PAID_METHOD,'
      '    NOTES = :NOTES,'
      '    USERORG_ID = :USERORG_ID,'
      '    GARANT_EXISTS = :GARANT_EXISTS,'
      '    GARANT_DATE = :GARANT_DATE,'
      '    DOGOVOR_TYPE = :DOGOVOR_TYPE,'
      '    DOGOVOR_NO = :DOGOVOR_NO,'
      '    DOGOVOR_SUM = :DOGOVOR_SUM,'
      '    DOGOVOR_DATE = :DOGOVOR_DATE,'
      '    CONTRAGENT_ID = :CONTRAGENT_ID'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    VW_DEBTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO VW_DEBTS('
      '    NLS,'
      '    PERIOD_ID,'
      '    KIND_ID,'
      '    DEBTOR_ID,'
      '    COLLECTOR_ID,'
      '    SUMMA,'
      '    IS_DELETED,'
      '    CLOSED,'
      '    CLOSE_DATE,'
      '    PAID_METHOD,'
      '    NOTES,'
      '    USERORG_ID,'
      '    GARANT_EXISTS,'
      '    GARANT_DATE,'
      '    DOGOVOR_TYPE,'
      '    DOGOVOR_NO,'
      '    DOGOVOR_SUM,'
      '    DOGOVOR_DATE,'
      '    CONTRAGENT_ID'
      ')'
      'VALUES('
      '    :NLS,'
      '    :PERIOD_ID,'
      '    :KIND_ID,'
      '    :DEBTOR_ID,'
      '    :COLLECTOR_ID,'
      '    :SUMMA,'
      '    :IS_DELETED,'
      '    :CLOSED,'
      '    :CLOSE_DATE,'
      '    :PAID_METHOD,'
      '    :NOTES,'
      '    :USERORG_ID,'
      '    :GARANT_EXISTS,'
      '    :GARANT_DATE,'
      '    :DOGOVOR_TYPE,'
      '    :DOGOVOR_NO,'
      '    :DOGOVOR_SUM,'
      '    :DOGOVOR_DATE,'
      '    :CONTRAGENT_ID'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NLS,'
      '    PERIOD_ID,'
      '    PERIOD,'
      '    KIND_ID,'
      '    KIND,'
      '    DEBTOR_ID,'
      '    NAME,'
      '    COLLECTOR_ID,'
      '    COLLECTOR,'
      '    BDATE,'
      '    SUMMA,'
      '    SUMMA_CUR,'
      '    IS_DELETED,'
      '    CLOSED,'
      '    CLOSE_DATE,'
      '    PAID_METHOD,'
      '    NOTES,'
      '    LASTPAY,'
      '    LASTPAYDATE,'
      '    CREATEUSERID,'
      '    CREATOR,'
      '    CREATEDATE,'
      '    MODIFYUSERID,'
      '    MODIFIER,'
      '    MODIFYDATE,'
      '    USERORG_ID,'
      '    GROUPNAME,'
      '    GARANT_EXISTS,'
      '    GARANT_DATE,'
      '    DOGOVOR_TYPE,'
      '    DOG_TYPE,'
      '    DOGOVOR_NO,'
      '    DOGOVOR_SUM,'
      '    DOGOVOR_DATE,'
      '    DOGOVOR,'
      '    DOGOVOR_LONG,'
      '    PERCENTS,'
      '    CONTRAGENT_ID,'
      '    CONTRAGENT,'
      '    TOWN,'
      '    ADDRESS,'
      '    PHONES'
      'FROM'
      '    VW_DEBTS '
      'where(  id = :pdebt_id'
      '     ) and (     VW_DEBTS.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NLS,'
      '    PERIOD_ID,'
      '    PERIOD,'
      '    KIND_ID,'
      '    KIND,'
      '    DEBTOR_ID,'
      '    NAME,'
      '    COLLECTOR_ID,'
      '    COLLECTOR,'
      '    BDATE,'
      '    SUMMA,'
      '    SUMMA_CUR,'
      '    IS_DELETED,'
      '    CLOSED,'
      '    CLOSE_DATE,'
      '    PAID_METHOD,'
      '    NOTES,'
      '    LASTPAY,'
      '    LASTPAYDATE,'
      '    CREATEUSERID,'
      '    CREATOR,'
      '    CREATEDATE,'
      '    MODIFYUSERID,'
      '    MODIFIER,'
      '    MODIFYDATE,'
      '    USERORG_ID,'
      '    GROUPNAME,'
      '    GARANT_EXISTS,'
      '    GARANT_DATE,'
      '    DOGOVOR_TYPE,'
      '    DOG_TYPE,'
      '    DOGOVOR_NO,'
      '    DOGOVOR_SUM,'
      '    DOGOVOR_DATE,'
      '    DOGOVOR,'
      '    DOGOVOR_LONG,'
      '    PERCENTS,'
      '    CONTRAGENT_ID,'
      '    CONTRAGENT,'
      '    TOWN,'
      '    ADDRESS,'
      '    PHONES'
      'FROM'
      '    VW_DEBTS '
      'where id = :pdebt_id')
    Transaction = trDebt
    Database = MAINDM.MainDB
    Left = 584
    Top = 208
    object dsDebtID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsDebtNLS: TFIBStringField
      FieldName = 'NLS'
      EmptyStrToNull = True
    end
    object dsDebtPERIOD_ID: TFIBIntegerField
      FieldName = 'PERIOD_ID'
    end
    object dsDebtPERIOD: TFIBStringField
      FieldName = 'PERIOD'
      EmptyStrToNull = True
    end
    object dsDebtKIND_ID: TFIBIntegerField
      FieldName = 'KIND_ID'
    end
    object dsDebtKIND: TFIBStringField
      FieldName = 'KIND'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtDEBTOR_ID: TFIBIntegerField
      FieldName = 'DEBTOR_ID'
    end
    object dsDebtNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtCOLLECTOR_ID: TFIBIntegerField
      FieldName = 'COLLECTOR_ID'
    end
    object dsDebtCOLLECTOR: TFIBStringField
      FieldName = 'COLLECTOR'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsDebtSUMMA: TFIBBCDField
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsDebtSUMMA_CUR: TFIBBCDField
      FieldName = 'SUMMA_CUR'
      Size = 2
      RoundByScale = True
    end
    object dsDebtIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
    object dsDebtCLOSED: TFIBSmallIntField
      FieldName = 'CLOSED'
    end
    object dsDebtCLOSE_DATE: TFIBDateField
      FieldName = 'CLOSE_DATE'
    end
    object dsDebtPAID_METHOD: TFIBStringField
      FieldName = 'PAID_METHOD'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtNOTES: TFIBStringField
      FieldName = 'NOTES'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsDebtLASTPAY: TFIBBCDField
      FieldName = 'LASTPAY'
      Size = 2
      RoundByScale = True
    end
    object dsDebtLASTPAYDATE: TFIBDateField
      FieldName = 'LASTPAYDATE'
    end
    object dsDebtCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsDebtCREATOR: TFIBStringField
      FieldName = 'CREATOR'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsDebtMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
    object dsDebtMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsDebtUSERORG_ID: TFIBIntegerField
      FieldName = 'USERORG_ID'
    end
    object dsDebtGROUPNAME: TFIBStringField
      FieldName = 'GROUPNAME'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtGARANT_EXISTS: TFIBSmallIntField
      FieldName = 'GARANT_EXISTS'
    end
    object dsDebtGARANT_DATE: TFIBDateField
      FieldName = 'GARANT_DATE'
    end
    object dsDebtDOGOVOR_TYPE: TFIBIntegerField
      FieldName = 'DOGOVOR_TYPE'
    end
    object dsDebtDOG_TYPE: TFIBStringField
      FieldName = 'DOG_TYPE'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtDOGOVOR_NO: TFIBStringField
      FieldName = 'DOGOVOR_NO'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtDOGOVOR_SUM: TFIBBCDField
      FieldName = 'DOGOVOR_SUM'
      Size = 2
      RoundByScale = True
    end
    object dsDebtDOGOVOR_DATE: TFIBDateField
      FieldName = 'DOGOVOR_DATE'
    end
    object dsDebtDOGOVOR: TFIBStringField
      FieldName = 'DOGOVOR'
      Size = 31
      EmptyStrToNull = True
    end
    object dsDebtDOGOVOR_LONG: TFIBSmallIntField
      FieldName = 'DOGOVOR_LONG'
    end
    object dsDebtPERCENTS: TFIBBCDField
      FieldName = 'PERCENTS'
      Size = 2
      RoundByScale = True
    end
    object dsDebtCONTRAGENT_ID: TFIBIntegerField
      FieldName = 'CONTRAGENT_ID'
    end
    object dsDebtCONTRAGENT: TFIBStringField
      FieldName = 'CONTRAGENT'
      EmptyStrToNull = True
    end
    object dsDebtTOWN: TFIBStringField
      FieldName = 'TOWN'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 103
      EmptyStrToNull = True
    end
    object dsDebtPHONES: TFIBStringField
      FieldName = 'PHONES'
      Size = 67
      EmptyStrToNull = True
    end
  end
  object dscDebt: TDataSource [41]
    DataSet = dsDebt
    Left = 624
    Top = 208
  end
  inherited PropStorageEh1: TPropStorageEh
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'PageControl1.tsDocs.dbgDocs.<P>.Columns.ColumnsIndex'
      'PageControl1.tsDocs.dbgDocs.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl1.tsGarant.gbGarant.DBGridEh1.<P>.Columns.ColumnsInde' +
        'x'
      
        'PageControl1.tsGarant.gbGarant.DBGridEh1.<P>.Columns.<ForAllItem' +
        's>.Width'
      'PageControl1.tsLinks.dbgCoDebtors.<P>.Columns.ColumnsIndex'
      
        'PageControl1.tsLinks.dbgCoDebtors.<P>.Columns.<ForAllItems>.Widt' +
        'h'
      'PageControl1.tsPays.dbgPays.<P>.Columns.ColumnsIndex'
      'PageControl1.tsPays.dbgPays.<P>.Columns.<ForAllItems>.Width'
      'PageControl1.tsToDo.dbgToDo.<P>.Columns.ColumnsIndex'
      'PageControl1.tsToDo.dbgToDo.<P>.Columns.<ForAllItems>.Width')
    Left = 492
    Top = 106
  end
end
